perm filename NUMZ.F4[RK,LCS] blob sn#234301 filedate 1976-09-01 generic text, type T, neo UTF8
00100		DIMENSION A(10)
00200		TYPE 1
00210		ACCEPT 2,A
00300		Z=0
00400		DO 22 K=1,10
00500		Z=Z+A(K)
00600	22	TYPE 7,Z
00910	7	FORMAT(F)
01000	6	STOP
01010	1	FORMAT(' TYPE NUMS')
01020	2	FORMAT(10F)
01100		END